home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
edbdmom.igb
< prev
next >
Wrap
Text File
|
1993-08-23
|
2KB
|
70 lines
inst4.1 !Sept 10, 1992
!****************************************************************
!* *
!* EDBD Momenta *
!* *
!****************************************************************
!
@LLsl !Load super-layer
=n6 Lpes !Number of layers
=LayN 0
! Loop over all layers looking for EDBD learn function
:EDBDMom
!Look for an EDBD layer
+LayN 1 !next layer
?LayN n6
>bgt EDBDMEnd !past output layer
@LLly !load the layer
?Llrn "Ext DBD" !EDBD learn function?
>bne EDBDMom !no, try again
!
!NOTE: following assumes that network builder assigns
!different names to each layer
=PNam LDln !probe name = layer name
! Add probe
=NPEl LayN !point to layer
@PbAS !Add Probe
@PbDC !Delete all components
@PALy !Add Near Layer to Probe
! Now build the instrument
@ILdD !load default instrument
=ITit PNam !Instrument title
+ITit " Momenta"
=IGTy "Hist" !Graph Type
=IGVr "AuxWt2"
=ITTy "RMS" !RMS Transformation Type
=ITMd 0 !No transformation
=IEpc 0 !No epoch
=Ignx 40 !#bars
! Height and width
=f0 Ignx
*f0 5.0 !5 pixels per bar
=Ihgt 50 !height of graph
=Iwdt f0 !Width of graph
=Ivmn 0.0
=Ivmx 1.0
=ILnA 1 !Active in Learn
=IRcA 0 !Inctive in recall
=ILDv 10 !Every 10 iterations
=ILRm 0
=IRDv 0
=IRRm 0
=IPrb PNam !Point to probe
=ICAc 0 !Convergence criterion inactive
=ICTh 0.0 !Convergence Threshold
!Let NeuralWorks figure out where to put instrument
=x 0
=y 0
@IAdd !Now create instrument
!
>br EDBDMom !Do next layer
:EDBDMEnd